unit Rel_ProdPedCpa;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Formulario_Padrao_Rel, RDprint, ExtCtrls, StdCtrls, CheckLst, ComCtrls,
  Buttons, Mask, ToolEdit, CurrEdit;

type
  TFrmRel_ProdPedCpa = class(TFrmPad_Rel)
    Label2: TLabel;
    Label3: TLabel;
    ed_dataini: TDateEdit;
    ed_datafim: TDateEdit;
    Label39: TLabel;
    BtnC_Produto: TSpeedButton;
    Panel5: TPanel;
    EdtPro_codigo: TMaskEdit;
    ed_qtde: TCurrencyEdit;
    procedure FormActivate(Sender: TObject);
    procedure btncancelarClick(Sender: TObject);
    procedure BtnC_ProdutoClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmRel_ProdPedCpa: TFrmRel_ProdPedCpa;

implementation

uses Con_Produto,Cons_ProdEntidade,biblio,dm,dbtables;

var controla_produto: boolean;

{$R *.DFM}

procedure TFrmRel_ProdPedCpa.FormActivate(Sender: TObject);
begin
  inherited;
 EdtPro_codigo.text:= '';
 ed_dataini.date   := date;
 ed_datafim.date   := date;
 ListaEmp.setfocus;
end;

procedure TFrmRel_ProdPedCpa.btncancelarClick(Sender: TObject);
begin
  inherited;
 FormActivate(sender);
end;

procedure TFrmRel_ProdPedCpa.BtnC_ProdutoClick(Sender: TObject);
var ConsultaProduto: TFrmCon_Produto;
begin
  inherited;
 if controla_produto then begin
  xcod_fornecedor   := '';
  Executa(TFrmCons_ProdEntidade,self);
  EdtPro_codigo.text:= xcod_controle;
 end else begin
  ConsultaProduto   := TFRmCon_Produto.Create(self);
  xmostra_ativos    := false;
  ConsultaProduto.ShowModal;
  EdtPro_codigo.text:= ConsultaProduto.Pro_codigo;
  ConsultaProduto.free;
 end;
 EdtPro_codigo.SelectAll;
end;

end.
